home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / database_manager[mirage_concepts_1984].nbz / mdb (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  972 b   |  29 lines
  1. 1 IFA=0THENA=1:LOAD"MDB BOOT",8,1
  2. 5 POKE 53272,23:POKE53280,0:POKE53281,0:POKE646,1
  3. 10 GOSUB15:GOTO40
  4. 15 PRINT"[147][205][201][210][193][199][197][160][195][207][206][195][197][208][212][211],[160][201][206][195].[146]"
  5. 20 PRINT"[196][193][212][193][194][193][211][197][160][205][193][206][193][199][197][210]"
  6. 30 PRINT"[195]OPYRIGHT 1983"
  7. 35 RETURN
  8. 40 PRINT"[195][200][193][206][199][197][160][211][195][210][197][197][206][160][195][207][204][207][210][211]? ([217] [207][210] [206]) ";:PRINT" [146][157]";
  9. 45 GETA$:IFA$=""THEN45
  10. 47 PRINTCHR$(13);"[145]";
  11. 50 IF A$="N" OR A$="[206]" THEN 200
  12. 52 PRINT"          [160][160][160][160][160][195][207][204][207][210][160][212][193][194][204][197]           ":PRINT
  13. 55 PRINT"      0 = [194]LACK      8 = [207]RANGE      "
  14. 60 PRINT"      1 = [215]HITE      9 = [194]ROWN"
  15. 65 PRINT"      2 = [210]ED       10 = [204]IGHT [210]ED"
  16. 70 PRINT"      3 = [195]YAN      11 = [196]ARK [199]RAY"
  17. 75 PRINT"      4 = [208]URPLE    12 = [199]RAY"
  18. 80 PRINT"      5 = [199]REEN     13 = [204]IGHT [199]REEN"
  19. 90 PRINT"      6 = [194]LUE      14 = [204]IGHT [194]LUE"
  20. 100 PRINT"      7 = [217]ELLOW    15 = [204]IGHT [199]RAY"
  21. 105 PRINT:PRINT"     [197][206][212][197][210][160][195][207][204][207][210][160]#[160][193][206][196][160][208][210][197][211][211][160]<[210][197][212][213][210][206]>"
  22. 110 PRINT:PRINT"          [194][193][195][203][199][210][207][213][206][196][160][195][207][204][207][210] ";:INPUTBK
  23. 115 PRINT"          [194][207][210][196][197][210][160][195][207][204][207][210][160]    ";:INPUTBD
  24. 120 PRINT"          [195][200][193][210][193][195][212][197][210][160][195][207][204][207][210] [160]";:INPUTCH
  25. 130 POKE53281,BK:POKE53280,BD:POKE646,CH
  26. 140 GOTO10
  27. 200 GOSUB15:PRINT:PRINT"     [208]ROGRAM LOADING...[208]LEASE WAIT"
  28. 210 SYS36864
  29.